home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
disk
/
vf512.zip
/
SX.BTM
< prev
next >
Wrap
Text File
|
1996-12-15
|
5KB
|
171 lines
@echo off
rem Checks for 4DOS if renamed to BAT
if Not %@eval[2+2]==4 goto err4
setlocal
loadbtm on
on break (echo *** Ctrl+Breaked^quit 1)
rem *** FSX AAL by (c) VBS Cade 1995
rem *** This file is supplied with VF package
rem *** VF stands for "Vladi File Manager"
rem *** VF -- ALL FEATURES YOU ALWAYS NEED IN *ONE* UTILITY
rem *** FSX CAN BE FREELY DISTRIBUTED (incl. UPLOAD TO ANY BBS)
rem ──────────────────────────────────────
rem *** PLEASE DO NOT MODIFY THIS FILE ***
rem ──────────────────────────────────────
iff x%1==x then
text
───────────────────────────────────────────────────────────
FSX Archive Abstraction Layer BTM by (c) Vladi BS Cade 1995
───────────────────────────────────────────────────────────
Usage: fsx[.btm] command archive.ext parameters
commands:
E -- extract w/o path
X -- extract with path
L -- list contents
V -- list contents (w/o using List)
T -- test archive
A -- add-to/create archive
EV -- extract multi-volume archive w/o path (ARJ/RAR)
XV -- extract multi-volume archive with path (ARJ/RAR)
"archive" is archive-name-WITH-ext (STH.UC2/etc...)
"parameters" is optional parameters added after archivename
supported archivers:
ARJ, UC2, ZIP, RAR, HA, AIN, LIMIT, LHA
examples:
sx t *.*
for %a in (arj uc2 zip rar ha ain lim lzh) sx a try.%a
───────────────────────────────────────────────────────────
endtext
endiff
for %%a in (%2) do (
rem echos *** %@upper[%@ext[%a]] ...
set type=%@upper[%@ext[%a]]
set cmd=%@upper[%1]
if %type == ARJ gosub arj
if %type == UC2 gosub uc
if %type == ZIP gosub zip
if %type == RAR gosub rar
if %type == HA gosub ha
if %type == AIN gosub ain
if %type == LIM gosub lim
if %type == LZH gosub lha
)
quit 0
:arj
iff "%cmd" == "E" then call arj e %a %3&
elseiff "%cmd" == "EV" then call arj e -v %a %3&
elseiff "%cmd" == "L" then call arj l %a %3&|list /s
elseiff "%cmd" == "V" then call arj l %a %3&
elseiff "%cmd" == "X" then call arj x %a %3&
elseiff "%cmd" == "XV" then call arj x -v %a %3&
elseiff "%cmd" == "T" then call arj t %a %3&
elseiff "%cmd" == "A" then call arj a %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
:uc
iff "%cmd" == "E" then call uc e %a %3&
elseiff "%cmd" == "L" then call uc v %a %3&|list /s
elseiff "%cmd" == "V" then call uc v %a %3&
elseiff "%cmd" == "X" then call uc es %a %3&
elseiff "%cmd" == "T" then call uc t %a %3&
elseiff "%cmd" == "A" then call uc a %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
:zip
iff "%cmd" == "E" then call pkunzip %a %3&
elseiff "%cmd" == "L" then call pkunzip -v %a %3&|list /s
elseiff "%cmd" == "V" then call pkunzip -v %a %3&
elseiff "%cmd" == "X" then call pkunzip -d %a %3&
elseiff "%cmd" == "T" then call pkunzip -t %a %3&
elseiff "%cmd" == "A" then call pkzip %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
:rar
iff "%cmd" == "E" then call rar e -std %a %3&
elseiff "%cmd" == "EV" then call rar e -v -std %a %3&
elseiff "%cmd" == "L" then call rar v -std %a %3&|list /s
elseiff "%cmd" == "V" then call rar v -std %a %3&
elseiff "%cmd" == "X" then call rar x -std %a %3&
elseiff "%cmd" == "XV" then call rar x -v -std %a %3&
elseiff "%cmd" == "T" then call rar t -std %a %3&
elseiff "%cmd" == "A" then call rar a -std %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
:ha
iff "%cmd" == "E" then call ha e %a %3&
elseiff "%cmd" == "L" then call ha l %a %3&|list /s
elseiff "%cmd" == "V" then call ha l %a %3&
elseiff "%cmd" == "X" then call ha x %a %3&
elseiff "%cmd" == "T" then call ha t %a %3&
elseiff "%cmd" == "A" then call ha a %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
:ain
iff "%cmd" == "E" then call ain e %a %3&
elseiff "%cmd" == "L" then call ain l %a %3&|list /s
elseiff "%cmd" == "V" then call ain l %a %3&
elseiff "%cmd" == "X" then call ain x %a %3&
elseiff "%cmd" == "T" then call ain t %a %3&
elseiff "%cmd" == "A" then call ain a %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
:lim
iff "%cmd" == "E" then call limit e %a %3&
elseiff "%cmd" == "L" then call limit l %a %3&|list /s
elseiff "%cmd" == "V" then call limit l %a %3&
elseiff "%cmd" == "X" then call limit e -p %a %3&
elseiff "%cmd" == "T" then call limit t %a %3&
elseiff "%cmd" == "A" then call limit a %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
:lha
iff "%cmd" == "E" then call lha e %a %3&
elseiff "%cmd" == "L" then call lha l %a %3&|list /s
elseiff "%cmd" == "V" then call lha l %a %3&
elseiff "%cmd" == "X" then call lha x %a %3&
elseiff "%cmd" == "T" then call lha t %a %3&
elseiff "%cmd" == "A" then call lha a %a %3&
else (
echo *** WRONG COMMAND!
)
endiff
return
rem In case FSX is renamed to BAT
:err4
echo *** FSX needs 4DOS!